home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 011 / machine.aqm / machine.asm
Encoding:
Assembly Source File  |  1985-11-20  |  2.5 KB  |  61 lines
  1.  
  2.  
  3.  
  4. ; 
  5. ; Machine Identification 
  6. ; 
  7.  
  8. id_base equ     0f000h                  ;segment for machine id 
  9. id_off  equ     0fffeh                  ;offset for machine id 
  10. pc_id   equ     0ffh                    ;id for IBM PC 
  11. xt_id   equ     0feh                    ;id for XT and Portable 
  12. jr_id   equ     0fdh                    ;id for PCjr 
  13. at_id   equ     0fch                    ;id for PC AT 
  14.  
  15. code    segment public 
  16.  
  17. assume cs:code,ds:code 
  18.  
  19.         org     100h                    ;set up as a COM file 
  20. start:  jmp     begin 
  21.  
  22. pc_msg  db      'System is an IBM PC','$' 
  23. xt_msg  db      'System is an IBM PC XT or Portable PC','$' 
  24. jr_msg  db      'System is an IBM PCjr','$' 
  25. at_msg  db      'System is an IBM PC AT','$' 
  26. no_msg  db      'System is not an IBM computer','$' 
  27.  
  28. ; 
  29. ; Check machine identification at location FOOO:FFFE 
  30. ; 
  31.  
  32. begin:  mov     ax,cs                   ;set up ds 
  33.         mov     ds,ax                   ;  to same segment as cs 
  34.         mov     dx,id_base              ;move base of machine id 
  35.         mov     es,dx                   ;  into es 
  36.         mov     al,es:id_off            ;get machine id 
  37.         cmp     al,pc_id                ;is it an IBM PC? 
  38.         je      pc                      ;  yes 
  39.         cmp     al,xt_id                ;is it an XT / Portable? 
  40.         je      xt                      ;  yes 
  41.         cmp     al,jr_id                ;is it a PCjr? 
  42.         je      jr                      ;  yes 
  43.         cmp     al,at_id                ;is it an AT? 
  44.         je      at                      ;  yes 
  45.         mov     dx,offset no_msg        ;print not an IBM msg 
  46.         jmp     print                   ; 
  47. pc:     mov     dx,offset pc_msg        ;print IBM PC msg 
  48.         jmp     print                   ; 
  49. xt:     mov     dx,offset xt_msg        ;print XT / Portable msg 
  50.         jmp     print                   ; 
  51. jr:     mov     dx,offset jr_msg        ;print PCjr msg 
  52.         jmp     print                   ; 
  53. at:     mov     dx,offset at_msg        ;print AT msg 
  54. print:  mov     ah,09h                  ;dos 9: print string
  55.         int     21h                     ;call dos function
  56.         mov     ah,4ch                  ;dos terminate program 
  57.         int     21h                     ;call dos function
  58. code    ends                            ; 
  59.         end     start                   ;start is entry point 
  60.  
  61.